home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / util / cdity / DM_dynAMIte.lha / DM_dynAMIte / Install < prev    next >
Text File  |  2002-10-07  |  3KB  |  91 lines
  1. ;
  2. ; DepthMenu module install script
  3. ; Copyright © 2001-2002 Arkadiusz [Yak] Wahlig
  4. ;
  5. ; $VER: DepthMenu_Module_Install 1.15 (07.10.2002) Arkadiusz [Yak] Wahlig
  6. ;
  7.  
  8. (set #app-ver "1.4")
  9. (set #copyright "Copyright © 2001-2002 Arkadiusz [Yak] Wahlig")
  10.  
  11. (IF (= @LANGUAGE "polski")
  12. (
  13.  (set #hello (cat "\n\n\n" @app-name " " #app-ver "\nModuî programu DepthMenu\n" #copyright "\n\n\n\nTen skrypt zainstaluje moduî " @app-name "\nna twoim dysku twardym.") )
  14.  
  15.  (set #dir-question "Gdzie znajduje sië katalog z programem DepthMenu?")
  16.  (set #dir-help "Wybierz katalog, w którym znajduje sië program DepthMenu. Zostanâ tam skopiowane wszystkie potrzebne pliki.")
  17.  
  18.  (set #languages-question "Które katalogi jëzykowe chcesz zainstalowaê?")
  19.  (set #languages-help "Moduî posiada wbudowany jëzyk angielski. Jeôli chcesz aby uûywaî innego jëzyka, zaznacz go na tym ekranie a póúniej ustaw jëzyk go jako preferowany w systemowych ustawieniach Locale.")
  20.  
  21.  (set #docs-question "Które wersje dokumentacji chcesz zainstalowaê?")
  22.  (set #docs-help "Moduî posiada róûne wersje jëzykowe dokumentacji. Na tym ekranie moûesz wybraê, które z nich majâ byê zainstalowane.")
  23.  
  24.  (set #bye "\n\nInstalacja zakoïczona pomyôlnie!\n\nDziëkujë za zainstalowanie moduîu.\n\n\n\nJeôli DepthMenu jest uruchomiony to\nmoduî zostaî juû zaîadowany.")
  25. ))
  26. (IF (= @LANGUAGE "english")
  27. (
  28.  (set #hello (cat "\n\n\n" @app-name " " #app-ver "\nDepthMenu external module\nCopyright © 2001-2002 Arkadiusz [Yak] Wahlig\n\n\n\nThis script will install " @app-name "\non your hard-disk.") )
  29.  
  30.  (set #dir-question "Where is a directory with DepthMenu program?")
  31.  (set #dir-help "Choose a directory, where the DepthMenu program was installed. The installer will copy all needed files there.")
  32.  
  33.  (set #languages-question "Which catalogs should be installed?")
  34.  (set #languages-help "Module's built-in language in english. If you want it to use some other languale you got to choose it now and set it as prefered in your Locale preferences program after installation.")
  35.  
  36.  (set #docs-question "Which documentations should be installed?")
  37.  (set #docs-help "Module documentations are available in different languages. On this screen you can choose, which of them should be installed.")
  38.  
  39.  (set #bye "\n\nInstallation successful finished!\n\nThank you for installing module.\n\n\n\nIf DepthMenu is running then\nmodule is already loaded.")
  40. ))
  41.  
  42. ; powitanie
  43. (complete 0)
  44. (message #hello)
  45.  
  46. ; gdzie instalowac?
  47. (set #_instdir
  48.  (askdir
  49.   (prompt #dir-question)
  50.   (help #dir-help)
  51.   (default "Work:")
  52.   (disk)
  53.  )
  54. )
  55.  
  56. ; kopiujemy pliki lokalizacyjne (z pytaniem ktore)
  57. (complete 25)
  58. (if (exists "Catalogs")
  59. (
  60.  (copyfiles
  61.   (source "Catalogs")
  62.   (dest (tackon #_instdir "Catalogs"))
  63.   (infos)
  64.   (pattern "~(#?.cd)")
  65.   (prompt #languages-question)
  66.   (help #languages-help)
  67.   (confirm)
  68.  )
  69.  (copyfiles (source "Catalogs") (dest (tackon #_instdir "Catalogs")) (pattern "#?.cd#?"))
  70. ))
  71.  
  72. ; kopiujemy dokumentacje (z pytaniem ktore)
  73. (complete 50)
  74. (copyfiles
  75.  (source "Docs")
  76.  (dest (tackon #_instdir "Docs"))
  77.  (infos)
  78.  (all)
  79.  (prompt #docs-question)
  80.  (help #docs-help)
  81.  (confirm)
  82. )
  83.  
  84. ; kopiujemy moduî
  85. (complete 75)
  86. (copyfiles (source "Modules") (dest (tackon #_instdir "Modules")) (all))
  87.  
  88. ; kilka slow na pozegnanie z installerem
  89. (complete 100)
  90. (exit #bye (quiet))
  91.